NetNews Offline 2/NetNews Offline Volume 2.iso/news/de/comm/isdn/3675

Text File | 1996-08-06 | 7KB | 332 lines

Path: news00.btx.dtag.de!not-for-mail
From: [e-mail] (Karl-Johannes Stich)
Newsgroups: de.comm.isdn
Subject: Re: T-Online + Trumpet Winsock ??
Date: 10 Feb 1996 00:56:05 GMT
Organization: Telekom Online Internet Gateway
Message-ID: <4fgqf5$[e-mail]>
References: <61qYmgmP$[e-mail]> <[e-mail]>
Reply-To: [e-mail]
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Sender: [e-mail] (Karl-Johannes Stich)
X-Newsreader: Forte Free Agent v0.56

[e-mail] (Peter Klinke) wrote:

>Karl-Johannes Stich wrote:
>>
>> Ich mnhe mich schon seit einigen Tagen vergeblich ab ein Script fnr den Trumpet
>> Winsock 2.1 zu erstellen. Ich m≈chte mich nber ISDN bei T-Online einwShlen, in
>> den VT-100 Modus wechseln, die Internet-#bergabeseite *190144100# anwShlen und
>> die dynamische IP-Adresse erfragen. Kann mir da irgend jemand behilflich sein?

>In der c't 12/95 S.324 steht ein Artikel dazu. Die sagen das wuerde nicht
>funktionieren. Da ich das bis jetzt nicht geglaubt habe habe ich vier
>Wochen lang rumprobiert und: Es geht nicht :-(

Und es geht doch, wie man hier sieht. Ich habe diese Script jedoch
auch nur durch ein Posting in einer der T-Online Newsgroups erhalten.
Es ist von Michael Heydekamp ([e-mail])

Schnipp-----------------------------------------------------------------------------------------------------

# trace on
echo off

#
# Modem initialisieren (fuer ZyX mit &K1: nur MNP4, kein V42)
# Ich hab n Creatix 144 VF, da reicht AT &F0

display \nModem initialisieren ...\n
output AT&F0\n
if ![input 5 OK\n]
  display \nModem antwortet nicht :-(\n\7
  abort
end

#
# Anschlusskennung als $password verschluesselt in INI ablegen
# bzw. von dort auslesen
#

if ![load $password]
  if [password "Anschlusskennung:"]
    save $password
  end
end

#
# Kennwort als $userpassword verschluesselt in INI ablegen
# bzw. von dort auslesen
#

if ![load $userpassword]
  if [query $userpassword "Kennwort:"]
    save $userpassword
  end
end

#
# waehlen
#

display T-Online-Zentrale anwaehlen ...\n
output ATDT01910\n
if ![input 60 CONNECT]
  set dtr off
  sleep 1
  set dtr on
  display \nkein CONNECT :-(\n\7
  abort
end

#
# Warten auf Eingabeaufforderung fuer Anschlusskennung
#

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nT-Online-Zentrale antwortet nicht :-(\n\7
  abort
end

#
# Anschlusskennung senden
# xxxxxxxxxxxx (12 Stellen ohne Return)
# liegt verschluesselt in der Variablen $password
#

display Anschlusskennung senden ...\n
output $password

#
# der folgende Teil zwischen den cut-Linien darf nur bei
# freizuegig geschalteten Anschluessen ausgefuehrt werden !
# Ansonsten loeschen oder auskommentieren.
#

# -------------------------- cut --------------------------

#
# Teilnehmernummer (oder Return)
#

if ![input 20 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe der Anschlusskennung :-(\n\7
  abort
end

display Teilnehmernummer bestaetigen ...\n
output \n

# -------------------------- cut --------------------------

#
# Mitbenutzernummer (oder Return wenn 0001)
#

if ![input 20 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe der Teilnehmernummer :-(\n\7
  abort
end

display Mitbenutzernummer senden ...\n
output \n

#
# Kennwort senden
# liegt verschluesselt in der Variablen $userpassword
#

if ![input 20 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe der Mitbenutzernummer :-(\n\7
  abort
end

display Kennwort senden ...\n
if len($userpassword) < 8
  output $userpassword\28
else
  output $userpassword
end

#
# transparente Datenvorwarnung abschalten
#

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe des Kennworts :-(\n\7
  abort
end

display TDV abschalten ...\n
output \19
output 53\28

#
# VT100 einschalten
#

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Abschaltung TDV :-(\n\7
  abort
end

display In VT100-Modus wechseln ...\n
output \19
output 707\28

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

output j

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

output .\13

if ![input 30 \e[?25h]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

output n

#
# Internet-Uebergabeseite aufrufen
#

if ![input 30 \e[?25h]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

display Internet-Gatewayseite anwaehlen ...\n
output *190144100\r

#
# 0,10 DM/min bestStigen
#

if ![input 30 \e[?25h]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Aufruf der Gatewayseite :-(\n\7
  abort
end

output 19\n

if ![input 120 STATUS]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

display \n
echo on
sleep 1

#
# Zugangsart ?
#

output WIN\r

#
# Meine IP-Adresse setzen und zur Information ausgeben
#

if ![input 10 YOURIP]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

address 3

if ![input 10 \n.\n]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

if ![input 10 \n.\n]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

display \nConnected! :-)\n\n\7

#
# Uebergang in SLIP-Modus
#

output OK\r

#
# Script verlassen und Online gehen
#

online

Schnapp-------------------------------------------------------------------------------
Bis dann,
<[e-mail]>
<[e-mail]>
+------------------------------------------------------------------------------+
|         _/     _/_/    _/_/_/    _/_/_/    Karl-Johannes Stich               |
|        _/    _/  _/       _/        _/     Ludwigstr. 29                     |
|  _/   _/   _/_/_/_/     _/        _/       D-33098 Paderborn                 |
|   _/_/   _/      _/   _/_/_/_/  _/_/_/_/   fon: [phone]            |
|                                            fax: [phone]            |
|   Stamp your hands and clap your feet!     E-Mail: [e-mail]    |
+------------------------------------------------------------------------------+